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This module handles the user interface of the /QUERY 
option on various Line mode commands, such as SUBSTITUTE. 


ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 
MODIFIED BY: 
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EDTSLQUERY - do /QUERY processing $ep-1984 VAX-11 Bliss-32_ V4.0-74 Page 1 
18-s60-1 382 90: 33: $3 DISK$V mt STER:CEDT ORCTLOUERY.BLI:1 ° (1). 
1 1 MG | "EDTSLQUERY = do /QUERY processing’ 
§ § DULE EDTSLQUERY ( ' Do /QUERY processing 
? Z Tre = 'v04-000' ! File: LQUERY.BLI Edit: REM1013 
5 O09 BEGIN 
§ ith lenueneneneenenaneennnreneenneneereetrertererertrenttnnenenerneennnerneeenes® 
ie e 
g Bey 'w COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
10 01 'e DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
1} id = ALL RIGHTS RESERVED. * 
Py ® 
ig 801 'e THIS fe urche is FURNISHED UNDER A LICENSE AND MAY BE USED AND gt * 
14 001 ' ONLY IN ACC ANCE WITH THE LICENSE AND WITH THE a 
15 001 '® INCLUSION OF ore ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR Y H ® 
16 001 '® COPIES THEREOF + NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
17 001 '® OTHER PERSON. O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
13 id 7 TRANSFERRED. * 
'® wt 
20 002 'e pe eae ae IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
21 002 'e SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$$ B08 - CORPORAT ION. * 
4 ® 
$¢ $05 ' DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
5 002 '@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
$$ aS) 4 is ; 
$8 003 WETTITITILILILILI LLL LLL LLL LLL LLL iit liiiiiitiiiiiiiiie 
i | 
° a0$ ‘ | 
¢ 003 FACILITY: EDT -=- The DEC Standard Editor | 
O08 ABSTRACT: | 
5 00 
003 
003 
00 
003 
i 
4 
4 
4 
44 


1-001 - Original. DJS O2-FEB-1981. This module was created by 

eatroct ing the routine EDTSS$PROC "ORYQAL from the nodule” EXEC.BLI. 
1-008 Reguiar ze headers. JBS 20-Mar-1981 | 
1- - Use ASSERT macro and fix up some comments mangled by converting QUERY 
to EDISSPROC QRYOAL, ; , 3 s Rie (om n-1981 


oe ee ee ee SYS SS: 
— . 
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45 
46 
47 
48 
49 
29 1- - Revise journaling. un-198 
1 1-005 = Use new message ny JBS irate 
§ 1- - Keke empty responses the al “Agcug-198) 
1- - Use he from a globai. 28-0ct 981 
$ 1-008 - ied sb5°599S nstead ? the Seock to hold the constructed 
Jan- 
$ 1-008 - add’s ort dot. JBS gem Jane 196¢ 
5 1-010 = Add EDTS$G.J VALID. JBS 09-Apr-1982 


inh + Pants roemiva ee eee 


1-81} = = Pe trpen the s reqn after a query. JBS 05-Jul-1982 
tthe. journa le ends at a quer _Feesenne treat Bhs, os eee 
" to ret urn nto connang evel. Note that the 
be sahentate 0-J 
| 1-013 = Added logic to RR. a LoTSse" TIN_OBUFPOS durring /RECOVERY mode. 
REM 10-Oct-1983 
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EXTERNAL REFERENCES: 
In the routine 


fF 7 
EDTSLQUERY EDTSLQUERY = do /QUERY processing 16-Sep-1984 00:33:38 VAX-11 Bliss-32 V4.0-74 Page 3 
v04-000 Declarations 14-Sep-1984 12:23:39 DISKSVMSMASTER:CEDT.SRCJLQUERY.BLI;1 (2) 
; 67 $ 1 ZSBTTL ‘Declarations’ 
; 668 1! 
; 9 5 1 ! TABLE OF CONTENTS: 
3 0 1! 
. 0 1 
; f ¢ | ! REQUIRE "EDTSRC: TRAROUNAM'; 
: 7 0 11 1 FORWARD ROUTINE 
Hy eo b2t¢ , EDTSSPROC_QRYQAL ; ! Process the EDTS$PROC_QRYQAL qualifier 
as 141! 
: i 15 1 ! INCLUDE FILES: 
; 1 1! 
: 80 0517 +1 
3 3) 0638 : REQUIRE "EDTSRC:EDTREQ'; 
$ HE O28 : 3 
4 84 0655 1 ! MACROS: 
; 85 O26 1! 
; Hy] 657 1! NONE 
 @ 658 1! 
; «688 59 1 ! EQUATED SYMBOLS: 
; 01! 
:; 90 i 
ie 2 ; 1 LITERAL 
$ 4 1 QUERY_LEN = 80, 
3 a7 re: : LINE_CEN = LIN_FIXED_SIZE + 255; 
: 95 1 
3 38 6 1 OWN STORAGE: 
oS 68 1 
; #98 1 NONE 
; 299 1 
: 100 1 
3 01 1 
; 102 1 
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? 
EDTSLQUERY EDTSLQUERY = do /QUERY processin 18-s¢ -1984 00:55: VAX-11 Bliss-32 V4.0-74 Page 4) 
Rhos EDTSSPROC. QRYOAL - do POUERY processing 1 ~3e0n 138% 99:33:48 STEKSVMEHASTERSCEDT SRCTLOUERY.BLI:1 . (3 
; } ¢ Me ! ZSBTTL "EDTSSPROC_QRYQAL = do /QUERY processing’ 
: 4 676 1 GLOBAL ROUTINE EDTSSPROC_QRYQAL ( ! Do /QUERY processing 
ws 77 = «1 WPTR, ' Used to reconstruct Line for SUBSTITUTE 
; 198 2/8 1 WEND ' Used to reconstruct Line for SUBSTITUTE 
> % 79 «1 = 
; #110 0 1 
: 111 1 1 !¢¢ 
; 118 6 ¢ : FUNCTIONAL DESCRIPTION: 
: 114 4 1 EDTSSPROC_QRYQAL processing routine. This routine is called before operating on 
: 13? $3 } } each Line by those commands which can take a /QUERY qualifier. 
: 19 ¢ 1 i The options bits are checked to see if the /QUERY qualifier was used. 
:; #118 688 1! If not the reus ine returns success janeqtatety, it was specified, 
; «119 689 1! then the user is prompted for verification. The actions for each 
3 : » Bene ' possible answer are: 
: 1 § 0692 1! Y = Return a 1 to indcate operation should be performed. 
mm 0695 1! N = Return a 0 to indicate pperecton should not be performed. 
: 124 0694 1! Q = The gcpet slag EDT$$G_EXE_QRYQUIT is set to stop further processing, 
: ; i R092 : A - The 7QUERY option bit 7s cleared so no more queries are done. 
127 0697 1 If the answer is not one of the above, then a message is displayed and the 
s ten S 3s user is prompted again. 
: 129 0699 1! 
3 : ' Bone : FORMAL PARAMETERS: 
: : § 4 : ! WPTR Used to reconstruct Line for SUBSTITUTE, 0 otherwise 
; 134 4 3 : ; WEND Used to reconstruct Line for SUBSTITUTE, 0 otherwise 
: 13? 9706 { IMPLICIT INPUTS: 
: 4 0708 1: EDT$$G_RCOV_MOD 
3; «64139 0709 1! EDTS$T_LN_BOF 
: 140 0710 1! EDTS$G_LN_LEN 
: 161 0711 1! EDTSSA_WK_LN 
: 165 Brie 1! EDTS$$G_EXE_QRYQUIT 
.. % 07135 1! EDTS$G_EXE_SBITS 
> 144 0714 1 EDTS$$T_PMT_QUERY 
; 145 0715 1! 
3 173 B78 : IMPLICIT OUTPUTS: 
; 148 v8 | i EDT$$G_JOU_VALID 
: 149 719 1! EDTS$$G_TIN_OBUFPOS 
; 150 720 1! 
; 131 ? 1 i ROUTINE VALUE: 
: 188 7 g 1 i 1 = do the operation 
: 1546 724 «1! 0 = don't do the operation 
3 155 725 1! 
: 136 7 $ 1 ! SIDE EFFECTS: 
: 15 727 1 | | 
s 158 7 3 1! NONE 
; «6159 7 1! 
: 160 7350 1 !-- 
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' Output char ptr 

' Length of rest of Line 

' Local copy of TR 

' Current Line with substitutions 


SANS 


L_wPTR, 
TILINE : REF LIN_BLOCK; 
' 


'¢ 
: Check for the /QUERY bit. If it is clear then return 1. 


IF .EDTS$$G_EXE_SBITS<OPB_QUERY> 
THEN 
BEGIN 
Display the Line so the user can see what he is verifying. 


SELEGRENLS SELES 


IF (.WPTR EQL 0) 


! Save EDTSSA_WK_LN 
| 
| 

EDTSSTY_CURLN () 

LSE 


7 | 

EDTSLQUERY EDTSLQUERY = do /QUERY processin 16-Sep-1984 00:55: VAX-11 Bliss-32 V4.0-74 Page 5) 

04-000 EDTS$PROCQRYQAL = do /QUERY processing 132888-1 382 99:33:49 DL SKSVMGMASTERSCEDT SRCSLQUERY.BLI:1 . an 

; 161 0731 : 
3; 6 7 BEGIN > 
ets 434 | : 
> 164 734 exTeaNn, ROUTINE : 
3 16S 735 EDTSSFMT_MSG, ' Place the text of a message in the format buffer : 
3 166 7 § EDTSSRD_CMDLN ! Read a command Line : 
3 16 7 EDTSSRD_JOUTX ' Read a text record from the journal file ; 
: 168 738 EDT$$T1-FLUSHJOUF I : NOVALUE, ! Write current pouren buffer on journal file ; 
3 192 739 EDTSSTI_BUFCH : NOVALUE, ! Store a character in the journal buffer ; 
: 170 740 EDTSSCNV_UPC, ! Convert to upper case : 
3; (171 741 EDTSSTY_CURLN, ' Display the current Line ‘ 
: 178 ee EDTSSALO_HEAP, ' Allocate heap storage ; 
3; Vz 74 EDTSSDEA_HEAP : NOVALUE, ! Deallocate heap storage ; 
: 174 744 EDTSSFMT_CRLF; ! Terminate a formatted Line ; 
3 6175 0745 ; 
; 178 Bre8 a : 
3; 7 74 EDTS$G_RCOV_MOD, ; 
: 178 0748 EDTS$T_LN_BOF : VECTOR (255, BYTE), : 
: 179 0749 EDTS$G_LN_LEN, ‘ 
: 180 0750 EDTSSA_WK-LN : REF LIN_BLOCK, ; 
> «(181 0751 EDTS$$G_EXE_QRYQUIT, ! Quit flag for /QUERY operations. : 
; ise 8726 EDTSSG_EXE_SBITS, ! The options switches. : 
; 18 075 EDTSST_PMT_QUERY : VECTOR C, BYTE), ' Counted ASCII string for /QUERY prompt ; 
: 184 0754 EDT$$G_JOU_VALI ! 1 = journal record is valid ; 
; «185 0755 EDT$$G_TIN~OBUFPOS, ! Position in journal output buffer : 
3 136 8728 EDT$$G_FMT_BOT; ! We are printing at the bottom of the screen : 
> 188 0758 MESSAGES ((PLSANSYNQ, INSMEM)); ; 
: 189 0759 : 
: 190 0760 LOCAL ’ 
3; «6191 0761 QUERY_RESP : REF BLOCK CCHSALLOCATION (QUERY_LEN)], . 
: 135 8766 QUERY_RESP_COMPLETE, ! 1 = response is complete : 
; #19 076 RET_VAL, ! Return value : 
3 194 0764 EN, . 
3: 195 0765 SW_LINE, ; 
3 : 8 66 ' Input char ptr : 
3; (Y 0 : 
. 7 0 : 
3 @ 0 
3 0 : 
Py 0 e 
3 0 : 
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EDTSLQUERY = do /QUERY processing 
EDTSSPROC_QRYQAL = do /QUERY processing 


: t 


during e SUBSTITUTE command, the current Line is in various 
pieces which are here reconstructed so that any substitution 
i Sireedy made on the Line are shown. 
BEGIN 
14 


t Allocate enough space for a maximum-Length Line. 


Le (ZREF (LINE LEN), T LINE) 
te BEGIN 
;_ Initialize the description for the Line to be constructed. 
+ EDTSSCPY_MEM (LIN_FIXED_SIZE, .EDTSSA_WK_LN, .T_LINE); 
_ Copy the Line up to the last substitution. 


IN = CHSPTR (EDTS$T_LN_BUF); 
OUT = CHSPTR (T_LINE CCIN_TEXT)); 


DECR I FROM .EDT$$G_LN_LEN - 1 TO 0 DO 
CHSWCHAR_A (CHSRCHAR_A CaN). OUT); 


'¢ 
q Copy the current Line from the Last match to the end. 


WLEN = CHSDIFF (.WEND, .WPTR); 
IF ((.EDTS$G_LN_LEN + .WLEN) GTR 255) THEN WLEN = MAX (0, 255 = .EDTSS$G_LN_LEN); 
L_WPTR = .WPTR; 


DECR I FROM .WLEN = 1 T0 0 DO 
CHSWCHAR_A (CHSRCHAR_A (L_WPTR), OUT); 


'¢ 
g Fixup the description of the fake current Line. 
2 T_LINE CLIN_LENGTH] = .EDTSS$G_LN_LEN + .WLEN; 
i Type the Line. 
ty NE = -COTSSAL tw K LN; ! Save the current Line description 
A_WK_LN = .T_LIRE; i Make the constructed Line the current one 
eo TSSty CORLN (); i Format and output this Line 
i EDTSSA A. 0k LN = . SW_LINE; i Restore the current Line description 
; Deallocate the heap storage used to hold the Line. 
EDTSSDEA_HEAP (ZREF (LINE_LEN), T_LINE); 


ELSE 
BEGIN 
'¢ 


i There is not enough heap storage to print the Line. Don't do this operation 
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QUERY = do /QUERY processing 
PROC_QRYQAL = do /QUERY processing 
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} and stop the whole command. Also, give an appropriate error message. 
EDTSSFMT_MSG (EDTS_INSMEM); 
EDTSS$G_ERE_QRYQUIT™= 1; 
A (0); 


! Give an appropriate error message 
; Stop the comman 
' Don’t do this substitution 


END; 
+ 
Allocate space to hold the response to the query. 
on NOT EDTSSALO_HEAP (ZREF (QUERY_LEN), QUERY_RESP)) 
BEGIN 
'¢ 


! There is not enough storage to accept the response. Don't do this 
operation and stop the whole command. Also, give an appropriate error message. 


EDTSSFMT_MSG (EDTS_INSMEM); ! Give an appropriate message 
EDTSS$SG_ERE_QRYQUIT™= 1; : Stop the comman 
RETURN (0); ! Don't do this substitution 
QUERY_RESP_COMPLETE = 0; 
WHILE ( NOT .QUERY_RESP_COMPLETE) DO 
ts BEGIN 
Get the Line from either the terminal or the journal file. 
IF .EDT$S$G_RCOV_MOD 
BEGIN 
IF ( NOT EDTSS$RD_JOUTXT (.QUERY_RESP, LEN)) 
BEGIN 
+ 


! We have reached the end of the journal file. Fake a ‘'Q"' response so that 
: we will terminate this command without making any more changes to the buffer. 


: LEN = 1; 
os CHSWCHAR (ZC'Q', .QUERY_RESP); 
We must journal the fake response, in case we do another /RECOVER during this session. 


EDTSS$STI_BUFCH (CHSRCHAR (.QUERY_RESP)); 
EDT$$6_JOU_VALIO = 1 


ELSE 
EDTSS$G_TIN_OBUFPOS = MIN(.Len, 1) 


ELSE 
BEGIN 


13-Sep-1964 99:38:98 DESKSUMGMASTERSCEDT SRCSLOUERY.BLI;1 oo 
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EDTSLQUERY EDTSLQUERY = do /QUERY processin 16-Sep-1984 00:55: VAX-11 Bliss-32 V4.0-74 Page 8 
FO4-b00 EDTSSPROC. QRYQAL - do POUERY processing 12=860-1 388 99:33:45 DLEKSVMGMASTERSCEDT SRCSLOUERY.BLI:1 (3) 
$ '¢ 
3 : 308 ' Make sure the journal buffer has oegn written to the journal file, 
3 : ape since we are about to wait for terminal input. 
; § 308 " EDTSSTI_FLUSHJOUFI (%C'T'); 
s 8 908 ! If all the text is being concentrated at the bottom of the screen, then be sure we are prompting | 
; 9 909 ' on a blank Line. 
; 340 910 !- 
> 341 0911 
; ri O38 IF .EDTS$G_FMT_BOT THEN EDTSSFMT_CRLF (); 
3 te 44: - EDTSSRD_CMDLN (EDTSST_PMT_QUERY [1], .EDTSST_PMT_QUERY [0], .QUERY_RESP, LEN, QUERY_LEN); 
: 346 0916 : ! Make sure the response is journaled. Only the first character of the response is journaled 
: 347 0917 5 ! because only the first character is important. 
a: o919 8 
; 39 44 , IF (.LEN GEQ 1) THEN EDTS$TI_BUFCH (CHSRCHAR (.QUERY_RESP)); 
3 2g 09 ¢ 5 EDT$$G_JOU_VALID = 1; 
; 09 4 END; 
; 354 0924 4 
s 339 0925 4 !+ 
; 356 0926 4 ! Check out the answer. 
s Sor 0927 4 !- 
; 358 0928 4 
; 359 0929 5 IF (.LEN LSS 1) 
; 360 0930 4 
; 1 0931 4 EDTSSFMT_MSG (EDT$S_PLSANSYNQ) 
3 306 eae 4 
3 0933 5 
: 364 0934 5 EDTSSCNV_UPC (.QUERY_RESP, 1); 
; 365 0935 5 
; 0936 5 SELECTONE CHSRCHAR (.QUERY_RESP) OF 
: 367 0937 5 SET 
; 368 0938 5 
: 369 0939 5 Czc'v*) : 
: 370 0940 6 EGIN 
3; 371 0941 6 RET VAL = 1; 
; i 094¢ $ QUERY_RESP_COMPLETE = 1; 
: 37 094 END; 
3; 374 0944 5 
: 375 945 5 CZC'°N') : 
3; 376 946 6 EGIN 
: 377 947 6 RET VAL = 0; 
; 378 948 QUERY_RESP_COMPLETE = 1; 
3 79 94 END; 
: 380 29 
: 5 951 CZC°A') : 
3 $ 936 6 pesin 
; ey ? EDT -s EXE_SBITS<OPB_QUERY> = 0; 
3 BS 955 QUERY_RESP_COMPLETE = 13 
3 326 END; 
: 95 
; 958 Czc'a') : 
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QUERY = do /QUERY erosessin ng 
$PROC -QRYQAL = do /QUERY processing 


I-Seectage 2:58:85 piedualsteb2tbs 


reg Page 
SRC JLQUERY.BLI;1 


| 
(3) | 
Sec EXE QRYQUIT = 1; | 
RET_VA 
QUERY. RESP_COMPLETE = 1; | 
COTHERWISE) : | 
_EOT DTSSFMT “MSG (EDTS_PLSANSYNQ) ; 
END; 
END; 
i Come here when the query response is complete. RET_VAL contains the 
i yalue to return. Deallocate the heap storage used fo hold the responses 
i to the query. 
pEseeees HEAP (ZREF (QUERY_LEN), QUERY_RESP); 
ELSES 
RET_VAL = 1; 
A gg (.RET_VAL); 
END; ! of routine EDT$$PROC_QRYQAL 
-TITLE EDTSLQUERY EDTSLQUERY - do /QUERY processing 
-IDENT \vV04-000\ 
-EXTRN EDTSSFMT_MSG, EDTSS$RD_CMDLN 
-EXTRN EDTSSRD_ JOUTXT, GOI SsTy _FLUSHJOUF I 
-EXTRN EDTSSTI-BUFCH, EDTSSCNV_UPC 
-EXTRN EDTSSTY_CURLN, EDTSSALON HEAP 
-EXTRN EDTSSDEA_HEAP, EDTSSFMT_CRLF 
-EXTRN EDTS$$G_RTOV_MOD 
-EXTRN EDTSST_LN BOF. EDTS$G_LN_LEN 
-EXTRN EDTSSA_WK- “EDTS$G_ EXE-QryvaquiT 
EXTRN EDISSCTEXE S611 TS 
-EXTRN EDTSS$T_PMT_QUERY 
EXTRN EDT$$G_JOU_ 
-EXTRN EDT$$G_TIN_OBUFPO 
XTRN EDTSSG, FMT-BOT, POTS. PLSANSYNQ 
SEXTAN EDTS _IRSMER 
-PSECT _EDTSCODE, NOWRT, SHR, PIC,2 | 
OFFC 00000 ENTRY SMA et eayen.. Save R2,R3,R4,R5,R6,R7,.- ; 0676 
5 90 0 006 9E 9002 MOVAB OESSbEAL HEAR. R11 ; 
A G 9E 00 MOVAB ED ISSALO H 3 
9 00 006 9E 19 MOVAB EDTS$ YCUR UREN: ‘ 3 
8 000000006 9 1 MOV EDTSSA "ox" LN, as $ 
f C i SUBL #16, S $ 
03 000000006 01 3 BBS # *EbTS8G_EXE_SBITS, 1$ ; 0776 
0180 31 00029 BRW 30$ : 


Sn — —y} 


ERTS. OUERY EDTSLQUERY = do /QUERY processin 
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EDTSSPROC_QRYQAL = do /QUERY processing 


J 
357-1 88e 93:38:38 | HNesumenASfencceot sacSLouery.eui:1 2% «ds 


—b 
eos 


56 046 ac 09 1$: mov PTR, R6 : 0783) 
69 a0 FB CALLS #0 EDT$$TY_CURLN + 0785 
0088 31 0 BRW 10$ : 
4 AE OF B 2$ PUSHAB  T L ANE + 0797 
04 AE 0106 8F 3C 00038 MOVZWL #2 4(SP) : | 
4 AE 9F 00041 PUSHAB 4(SPS : 
6A 9 EB 0 ht CALLS #2, EDTSSALO_ HEAP : 
03 ; 47 BLBS RO, 3$ : 
0087 31 0004A BRW 11§ : 
57 3.) 0 0040 3$: MOVL EDTS$A, WK_LN, + 0803 
BE 67 7 9050 MOVC3 7), "aT_LINE ; 
1 000000006 00 : 0 MOV eptss ti LN peur IN + 0807 
52 04 AF 7 Ci 0005¢ ADDL3 + 0808 
53 000000006 09 00 0061 MOVL EDfsat. ety ten’ "33 + 0810 
50 DO 00068 MOVL R3, I + 0811 
3 11 00068 BRB 5$ : 
82 1 90 9060 4$: MOVB  (IN)+, (OUT)+ : 
FA 0 F4 00070 5$: SOBGEQ I, 4$ : 
50 08 AC 56 C3 00073 SUBL3 R6, WEND, WLEN : 0816 
51 5 50 ¢1 00078 ADDL WEN, R3, RI : 0818 
a a 7 
51 OOOOOOFF BF 33 C3 00085 SUBL RS. #255, R1 : 
51 D4 OO08F CLRL sR : 
50 51 DO 00091 6$: MOVL RI, W : 
54 56 90 00094 7$: MOVL R6 ut “ATR + 9820 
51 50 D0 ¥0097 MOVL : 0823 
03 11 O009A BRB : 
82 84 90 0009C 8$: MOVB te WPTR)+, (OUT)+ 3 
FA 51 F4 0009F 9$: SOBGEQ : 
BE 53 50 81 OOOA ADDB WEEN, R3, @T_LINE ; 0828 
52 57 DO OOOA MOVL LINE : 08 é 
68 04 AE DO OOOAA MOVL T Cines LED TSSA WK_LN : 083 
69 00 FB OOOAE CALLS = #0, EDISSTY CURLN™ + 0834 
68 52 00 ed VL SW_LINE, EDT$$A_WK_LN ; 0835 
04 AE 9F 000B4 PUSHAB N : 0839 
04 AE 0106 aF 3¢ 90087 mOVZWL #262, 4(SP) : 
6B 05 FB o0¢0 CALLS EDISSDEA_ HEAP : 
OC AE 9F 000C3 10$:  PUSHAB ai : 0858 
ee RE PBS bum fe : 
6A 05 FB bore CALLS 2 . sf eg HEAP : 
17 E8 00001 BLBS 12$ : 
000000006 8F DD 00004 11$: — PUSHL FEOTS INSME EN + 0865 
000000006 00 1 FB OODA CALLS #1, EDTSSFM : 
000000006 00 0004 pd Q0E| HOVL a4 EDTS$G MERE SORYQUIT ; 0866 
cg D4 0 £B 12$:  CLRL QUERY_RESP_COMPLETE : $890 
5 A D9 ED MOVL § QUERY“RESP> R ; O88¢ 
0 ek 5 Fl 13$: BLBC QUERY -RESP_COMPLETE, 14$ > 087 
2E 000000006 00 £9 OO0F7 148:  BLBC  EDT$$G_RCOV_MOD, 178 : 0878 
A F fe PUSHAB N : 0882 
52 DD 0010 PUSHL R : 


N 7 
EDTSLQUERY EDTSLQUERY = do /QUERY processin 16-Sep-1984 00:55:45  VAK=11 Bliss-32 v4.0-74 p | 
TO ue000 EDTSSPROC_QRYQAL - do POUERY processing 19-808- 1382 90:33:49 DISKSVMSMASTER:CEDT.SRCILQUERY.BLI:1 > dy) 
000000006 00 2 £6 00103 CALLS #2, EDISSRD_JOUTXT ; | : 
08 AE + 68 OOT00 Chee Pa : 0889 
wa 0 ee Bg aE 
50 08 AE 0000117 158:  MOVL LEN, RO + 0898 ; 
01 50 01 00118 CMPL Lf #1 : : 
50 0 00 139 ROVL ot. RO 
000000006 00 0 O 123 16$: MOVL RO, EDT$$G_TIN_OBUFPOS : ; 
? 54 8E OA 015¢ 178: BRU ZBL i$ (SP) : O88e 
000000006 5 a FB 83 6 CALLS At EDT SsTl FLUSHJOUF I : ; 
07 000000006 00 €9 001 BLBC EDT$$G_FMT BoT, 18$ + 0912 : 
000000006 00 00 FB 001 : CALLS #0, EDTSSFAT_CALF : ; 
7E 50 BF 9A 00145 188 MOVZBL #80, -(SP) + 0914 : 
eo eases US US | : 
7E 000000006 00 9A O014E MOVZBL EDTS$T_PMT_QUERY, -(SP) : : 
000000006 00 9F 0015 USHAB EDTS$$T~PMT~QUERY+1 : : 
000000006 00 05 FB 0015B CALLS #5, EDTSSRB_CMDLN : : 
08 AE D5 00162 TSTL LEN + 0920 : 
OA 75 0016 BLEQ 0$ : : 
7E 62 9A 00167 19$:  MOVZBL (R2), -(SP) : : 
000000006 00 01 FB O016A CALLS #1, EDT$$TI_BUFCH : : 
000000006 00 01 DO 00171 20$:  MOVL #1. EDT$$G_JOU_VALID + 0922 ; 
08 AE 05 00178 21$:  TSTL Len + 0929 ; 
3F 15 00178 BLEQ  27$ : : 
01 DD 0017) PUSHL #1 + 0934 : 
52 DD 0017F PUSHL RS § 3 
000000006 00 08 FB 00181 CALLS #2, EDTSSCNV_UPC : : 
59 BF 62 91 00188 CMPB (RE), #89 : 0939 ; 
05 12 0018C BNEQ 23 : : 
54 01 DO 0018 228: MOVL #1, RET_VAL + 0941 ; 
24 11 00191 BRB 26$ > 094 ; 
4E oF 62 91 00193 238:  CMPB  (R2), #78 > 094 ; 
1¢ 13 00197 BEQL  25$ : : 
41 BF 62 9 00199 CPB Re), #65 : 0951 ; 
000000006 00 02 BA 0919F BICB2 a EDT$$G_EXE_SBITS + 0953 : 
E6 11 OO1A6 BRB 228 : 0954 ; 
51 SF 62 1 00148 24$ CPB Re), Ty > 0958 : 
000000006 00 Q] 00 O1AE - mOVL “, EDTSSG_EXE_QRVQUIT : 9960 : 
53 oi 00 0187 se: HOVE #1 , QUERY RESP_COMPLETE ; 99 2 : 
000000006 8F DD 18 27$:  PUSHL #EDT$S_PLSANSYNQ : 0966 F 
000000006 00 1 FB OO1C CALLS #1, EDTSSFMT_MSG : : 
FF25 31 1¢ 8s: BRW 13§ : 087 : 
Oc AE 9F OO1CC 29$:  PUSHAB QuERY RESP : 097 : 
04 AE BF 9A OOICE MOVZBL #80, &(SP) : : 
04 AE OF 0104 USHAB 4(SP) : | : 
6B fe 107 CALLS a EDTSSDEA_HEAP Foote F 
54 1 00 th 308: MOVL #1, RET_VA : 0981 ; 
50 4 DO OO1DF 31$:  MOVL  RET_VALT R ; 0983 ; 


8 j 
TSLQUERY TSLQUERY - /QUERY i b-5 1984 255: VAX-11 Bliss-32 V4.0-74 Page 12 
Ra boO” EDTSSPROC ORYGRL “y FQUERY processing 730071382 99:33:43 DLSKSVMSHASTERSCEDT SRCSLOUERY.BLI:1 2 J 
04 OO1E RET : 
50 BS Gores 328: CLRL RO 3; 0984 
4 OO1E RET : 
; Routine Size: 486 bytes, Routine Base: _EDTSCODE + 0000 


15 0985 1 
16 0986 1 !<BLF/PAGE> 


<m 
pa! 


ey | 


$4 ou VERY = do /QUERY processing 
SSPROC_QRYQAL = do /QUERY processing 
7 
8 


PSECT SUMMARY 
Bytes 


486 NOVEC,NOWRT, RD , 


Library Statistics 


Ssenneee Symbols 
Total Loaded 
L32;1 377 10 
CTS.L32;1 2 1 


COMMAND QUALIFIERS 


8 
1-5 Sep-1984 VAX-11 Bliss-32 V 
14-Sep P1984 t 99: 33; $3 DISKSVMSMASTER: 
! of module EDTSLQUERY 


ye eres P 
CEDT.SRCJLQUERY.BLI;1 


Attributes 
EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


enaesacee Pages Processing 
Percent Mapped Time 
40 0:00.2 
36 7 $0;00:4 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:LQUERY/OBJ=OBJ$:LQUERY MSRC$:LQUERY.BLI/UPDATE=(ENH$:LQUERY) 
486 code + 0 data bytes 
0 7 


41 1 END 
41 4 1 
420 989 0 ELUDOM 
Name 
-EDTSCODE 
File 
“$52 2SDuACE: uth - SRCJE 
~$255$DUA EDT.SRCIP 
Size: 
Run Time: 8 222. 
Elapsed itaes 0:27.2 
Lines/CPU Min: 609 
oe A Bae | 160 
Y Used: 152 pages 
—— ation Complete 


<m 
<= 


Sete Se Ge Ge Se Ge Ge Ge Ge Fe Se ee Se G8 Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se ee Se SeSe Fe Se Se Se tease 


VAX/VMS V4.0 
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